perm filename FIXUPA.MAC[X,ALS] blob sn#094492 filedate 1974-03-28 generic text, type T, neo UTF8
00100	;	SUBROUTINE FIXUPA(A)
00200	TITLE	FIXUPA
00300	ENTRY	FIXUPA
00400	FIXUPA:	0
00500		HRRZ	0,44
00600		MOVEM	@-3(16)
00700		JRA	16,1(16)
00800		END